home *** CD-ROM | disk | FTP | other *** search
/ Remix Doll 3: Dirty Sally / Remix Doll 3: Dirty Sally.iso / drtyslly.exe / MAIN_FNL.DXR / 04951_TNavLayer.ls < prev    next >
Encoding:
Text File  |  1995-02-11  |  1.2 KB  |  60 lines
  1. property ancestor, fCurRoomName, fRoomIcons
  2. global kNumRooms, kRoomNames
  3.  
  4. on birth me
  5.   set ancestor to NewObj("TLayer")
  6.   mINavLayer(me)
  7.   return me
  8. end
  9.  
  10. on mINavLayer me
  11.   mIRoomIcons(me)
  12.   mIPad(me)
  13.   mIPadBtn(me)
  14. end
  15.  
  16. on mIRoomIcons me
  17.   set fRoomIcons to []
  18.   set aSpr to 18
  19.   repeat with aRoomCount = 1 to kNumRooms
  20.     set aRoomName to getAt(kRoomNames, aRoomCount)
  21.     set aRoomIcon to mNewView(me, "TRoomIcon", aSpr + aRoomCount - 1, aRoomName & "Icon")
  22.     mStRoomName(aRoomIcon, aRoomName)
  23.     add(fRoomIcons, aRoomIcon)
  24.   end repeat
  25.   set fCurRoomName to EMPTY
  26. end
  27.  
  28. on mIPad me
  29.   set aSpr to 17
  30.   set aPad to mNewView(me, "TView", aSpr, "Pad")
  31.   mStPuppet(aPad, 1)
  32. end
  33.  
  34. on mIPadBtn me
  35.   set aSpr to 22
  36.   set aCloseBtn to mNewView(me, "TView", aSpr, "closeBtn")
  37.   mPuppetOn(aCloseBtn)
  38.   set aSpr to 23
  39.   set aQuitBtn to mNewView(me, "TView", aSpr, "quitBtn")
  40.   mPuppetOn(aQuitBtn)
  41. end
  42.  
  43. on mStCurRoomName me, vRoomName
  44.   set fCurRoomName to vRoomName
  45. end
  46.  
  47. on mGtCurRoomName me
  48.   return fCurRoomName
  49. end
  50.  
  51. on mGtCurRoomNum me
  52.   return getPos(kRoomNames, mGtCurRoomName(me))
  53. end
  54.  
  55. on mCompleteRoom me, vRoomName
  56.   set aRoomNum to getPos(kRoomNames, vRoomName)
  57.   set aRoomIcon to getAt(fRoomIcons, aRoomNum)
  58.   mComplete(aRoomIcon)
  59. end
  60.